ANnnnno 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


*F ILE**1D**BASEDI VP 


PP 
PP 
PP 
PP 
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usu Abs ad Aa 
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: 1 09) MODULE BASSEXTEND DIvP ( : 

; § § {DENT = '1-005' ! File: BASEDIVP.832 EDIT:MDL1005 

; é 9 4 1 BEGIN 

: $ 00 ! i eeeneeeneeeereneneeeneceeeceneererereecerererterenrenenecenenenenseetenenees 
; 7° * 
; 8 Bee 1 !@ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 
; 9 0 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 319 : i* ALL RIGHTS RESERVED. . 
; i og 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE gece AND COPIED * 
; 1 01 1 !* ONLY IN ACCORDANCE WITH THE TER F SUCH LICENSE AND WITH THE ®* 
; 14 Bate 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
; 15 015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 1 8018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
; i? oot8 } wd TRANSFERRED, * 
P 7° 
; 19 9484 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $f 020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 1 4 1 ; .8 CORPORATION. * 
3 ‘® ® 
; $¢ 00 5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; BB : ; = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ; « 
. ' 

: : 0097 : ALTE SEL OI LRT OA ON APE IE ND AAA SP RT NESTE TAD. 
; 8 1! 

; 9 0099 1 

; 0 0050 1 !++ 

H 1 0031 1°! FACILITY: BASIC 

3 ; 00 ; 1! 

3 09 ? : : ABSTRACT: 

; 5 035 1: This module performs double precision division for scaled decimal 

3 B238 1! data types. 

3 7 0037 1! 

; : 4 : ; ENVIRONMENT: VAX=11 User Mode 

; 40 9040 1 i AUTHOR: Bob Hanek, CREATION DATE: 20-Jan-1982 

; 42 0042 1 i MODIFIED BY: 

3; 6 045 1! 

3; (44 Bnee 1! 1-00) - Original. RNH 20-Jan-1982 

3; $$ 045 1 ! 1-002 - Change name to BASSEXTEND DIVP and change errors to 

toe O66 1! Decimal Error, PLL 12-Feb-1982 

.- § 047 1 ! 1-003 = Check the decimal overflow flag within the flags word found 

; «648 048 1! in the BASIC frame and use the value that setting to 

; «649 49 1! set the PSW accordingly. LB 15-May-1 

; = 050 1 ! 1-004 - crengee the declarations of A_EXP and B_EXP from BYTE to 

: 2} 051 1! SIGNED BYTE so that negative Values will not be zero 

; § 26 @. extended from a oyke to a longword for computational 

3 : 053 1! purposes. Added the variable SAV_BADDR to save the value of 

: 4 054 1! ADDR, which was being altered by LIBSSUNPACK 8 R8. Both the 

; 29 055 1! Altered value and the old value are needed. JCQ 29-Nov-1982 

3 2 328 1 ! 1-005 = RND_TRUNC enous be figured into the shift factor when calling 

; 5 057 1! LIBSSCVT_A_AP_R8. MDL 5-Oct-1983 
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6 '¢ 

‘6 i SWITCHES: 
64 ie 
65 
66 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
68 '¢ 

9 i LINKAGES: 

0 ie 

71 

7 LINKAGE 

7 JSB1 = JSB (REGISTER=6, REGISTER=7) : NOPRESERVE (2,3 P 

74 J$8¢ = JSB (REGISTER=6, REGISTER=7, REGISTER= =o) : CODACEERVE (2,3,4,5), 
75 J5B3 = JSB (REGISTER=6, R G{STERS?, REGISTER=8, REGISTER=9) 

76 NOPRE SERVE (2,3,4,5) 

A JSB4 = JSB (REGISTER=6, R Gy STERS?, REGISTER=8, REGISTER=9, REGISTER=10) 
19 JSB5 = JSB (REGISTER =4, REG] STER=S, REGISTER=6, REGISTER=7, REGISTER=8) 
81 JSB6 = JSB ineGistEn=$ REGISTER=4, REGI gTERs =5, REGISTER=6, REGISTER=7, 
8 GISTER=8) : NOPRESERVE ( 
84 '¢ 
BS 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSEXTEND_DIVP : NOVALUE; ! Double precision packed decimal division 


'¢ 


INCLUDE FILES: 


REQUIRE ‘RTLIN:RTLPSECT’; ' Macros for defining psects 
REQUIRE ‘RILIN: BASF RAME' ; ! Define frame offsets 
LIBRARY ‘RTLSTARLE'; ! System definitions 


'¢ 

i MACROS: 
NONE 
'¢ 


PSECTS: 


DECLARE_PSECTS (BAS); ' Declare psects for BASS facility 
'¢ 


OWN STORAGE: 
i NONE 


DNS AR UW—OSHSIEAR WV LOOM IRAL IO OOO IO 


ats a eo St tS tS 


! EXTERNAL REFERENCES: 


BASEEXTEND _DIVP sein 00:20:47 YACHT BL isg=82 4 742 


; 119 14 1 !- 

; 120 415 1 

3 Ye) £18 1 EXTERNAL ROUTINE 

..o § 417 1 BASSSSTOP, ! Signal fatal error 

. % 218 1 aitttyee as Reds JSB1, ' Calculates normalization joqter 

; 1246 419 1 LIBSSCALC_Q SB3 NOVALUE, ! Calculates one quotient digit 

s 125 420 1 LIB$$SUB_PA tk i :JSB2, ! Subtracts two decimal arrays 

ae 8 he LIBSSCVT_AP_P_R8:JSB6, ! Converts - packed ervey to a single 
3; (1 4 § 1 ; rounded packed string 

: 128 4 1 LIBSSUNPACK_SD_R8:JSB5 NOVALUE, ! Unpacks SD decscipter Convert packed 
; 129 424 1 ; decimal otr ing to leading separate 
3 : ° 5 : LIBSSMUL_PACK_R10:JSB4 NOVALUE, sat Sey a packed array by a single 
9 § 04 ° 1 LIBSSADJUST_Q_R9:JSB3 NOVALUE, ! Adjusts” intermediate results of divi- 
at 428 1 ; sion algorithm if initial quess at 
a. 429 1 : a@ quotient digit is wrong 

3 1355 430 1 LIBSS$CVT_STR_PACK_R9:JSB3 NOVALUE, 

se 0431 1 ! Converts a string of foc tnel digits 

3 137 04 § 1 ' to an array of packed decima 

oo 04 1 : values 

; 139 0434 1 BASSHANDLER; 

3 140 0435 1 

3 (141 04 $ 1 BIND 

3 146 r i : ZERO = UPLIT BYTE (REP 15 OF (%xX'00"),%xX'0C'); ! Packed zero 

3 (144 439 1 BUILTIN 

3; «6145 440 1 BICPSW, ! Bit clear PSW 

: 146 0441 1 BISPSwW, ! Bit set PSW 

3: «147 0442 1 OVP; ! Move Be. decimal data 

3; «148 0443 1 

3; «4149 0444 1 !¢4 

: 150 0445 1! The following are the error codes produced by this module. 

3; 151 0446 1 i- 

3 136 0447 1 

; 9 0448 1 EXTERNAL LITERAL, 

3 6154 0449 1 BA DECERR ! Decimal overflow 

> 155 0450 1 BASSK~ “DIVBY_2ZER; i Divide by zero 

; 156 0451 1 

; 157 60452 «1 
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GLOBAL ROUTINE BASSEXTEND_DIVP ( 
8. 
RND_TRUNC) :NOVALUE = 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


that extraordinary series 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 
A.rp.dsd 
B.rp.dsd 


C.rp.dsd 
RND_TRUNC.rb.v 


IMPLICIT INPUTS: 
~NONE 
IMPLICIT OUTPUTS: 
~NONE 

ROUTINE VALUE: 
~NONE 
COMPLETION CODES 
~NONE 

MACROS: 
~NONE 
SIDE EFFECTS: 
~NONE 


1 
1 


- The algorithm implemented here has been 
s his famous Algorithm D (division of non-negative 
been modified to handle negat ive integers)) found in Volume 2 o 
Vol. 2 is entitled Seminumerical Algorithms). 
An explanation of the algorithm appears further on in the program. 


Tots rqus ine finds the quotient of two scaled packed decimal ptr ings i.e. 
= 
h 


Descripter for A 
Descripter for B 
Descripter for C 
Round/Truncate parameter (0 = truncate, 5 = round) 


2 
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! Address of descripter for A 
! Address of descripter for B 
! Address of descripter for C 
! Round/Truncate parameter 


rovided by KN 


TH. It 
ntegers (whic s 


ha 


BASSEXTEND_DIVP (A.rp.dsd, B.rp.dsd, C.rp.dsd, RND_TRUNC.rb.v) 
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VPP PUP IV IV IUPUI SUS USUIUSUSUSV SUSI IUSUSISUS USSU ISVS IS USSSA 


FHF ENN WIWIWIAIDIDIPDININIDPININID 2 OO OO OO OOOO 
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Pp 
C:REF BLOCK (12,BYTE); 
STACKLOCAL 


NBT 


: SIGNED BYTE, 
:BvT * 


= oom, ee ee 


CHUNKS 
QBUF :VECTORC128, BYTE), 
ATU 


FLAG 
FMP:REF BLOCKCO,BYT 
SAVE_FP:REF BLOCKLO 


FP; 

BIND 
ABUF = QBUF(B) 
ABUF& = QBUF(16), 
QBBUF = QBUF(96) 
QBBUFS = QBUFL104); 


ESNieecrececes ecm eerereceoeseoecac= 
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Used to save the old value of B_ADDR 
Number of digits in A string 
Address of A string 
Scale factor of A 
Sign of A (0 for pos, 1 for neg) 
Number of digits in B string 
Address of B string 
Scale factor of B 
Sign of B (0 for pos. 1 for neg) 
Sign of result digit 
Number of digits Reoded in A to produce result 
Number of 15 digit chunks needed in A 
Number of 15 gigit chunks in B 
Number of digit required in the quotient 
Number of 15 gigit chunks required in quotient 
Addr of ist 15 digit chunks of the quotient 
; ponguerd f for returning statu 
CHUNKS = 1 ==> FLAG = 1, FLAG = 0 otherwise 
DTBSFSFCD) ! Pointer to FCD 
FIELD (BSF SFC); 


Frame Pointer 


Address of A buffer 

Address of A buffer + 8 bytes 
Address of B buffer 

Address of Q*B buffer 

Address of Q*B buffer + 8 bytes 


-——- 
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lee eeeeeeereeeteeeeeeHeReeeeeeeeteeereteeHeeereeeeeeeeeeeAeeeKeeeeeeeees 
' 
THE ALGORITHM 


f the divisor 

f dividend - n 
decimal) 
Se 


STEP 1. Normalize. t D = FLOOR (radix/(v1+1)) where vl is the 
first digit of the divisor which must ogt be zero. Where 

U1...Um+n rgor sent the chunks of 1 di 
eivigene and vi V 


GIVENS: n = Length o 
m = length o 
radix = 10 ( 


«o-VN represent the chunks et 15 digits 


ada a A A by D_ thus os the sequence of 15 digit 
Ul U2...Um+n. (Note the introduction of the new 
chunk.) Multiply B by d to obtain a sequence of chunks 
Vi v2...V¥n. (Note no new chunk occurs 


STEP 2. Set J = 0. This is the value we will loop on. For this 

routine we will loop “‘LOOP’’ number of times. Steps 2-7 

will provide the basis for the division of Uj Uj+l...Uj+n 
by V1 V2...Vn, to get a single quotient digit - Qj. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: STEP 3. Calculate the first digit of the quotient: 

If Uj = then set q = radix-1. Otherwise, set q = 
' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
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e 
FLOOR(Uj*radix + Uj+1)/V1). Now test if V2*q > 
(((Uj*eradix + Uj+] = qeV1)*radix)+Uj+2). If so, then 
decrease q by 1 and repeat this test. When finish q is 
either equal to the qoutient digit or one greater. 


STEP 4. Multiply and subtract. Duptece Uj Uj+1...Uj+n by 

Wj Uj+1...Uj+n = (q * V1 V2...Vn). ; 
This step consists of a simple multiplication by a one-place 
number, combined with a subtraction. The digits 
Uj uj+i...ujen should be kept positive; if the result of this 
step is negative, Uj Uj+1...Uj+n should be left as the true 
value plus radix raised to the n+l, i.e. as the radix’ 
complement of the true value, and a ‘borrow’ to the left 
should be remembered. 
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STEP 5. Set QC.J) = 9: This is a digit of the quotient. If the 
ceouts of STEP 4 was negative, go to STEP 6; otherwise go to 
STEP 6. Decrease O[.J] by 1. Add OV1 V2...Vn to Uj Uj+l...Ujen. 


STEP 7. Loop on J. If J <= “LOOP’’ then go back to STEP 3. 
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18-5 
14S 
te 

! First check the decimal overflow setting of the flags word found in 


! the BASIC frame. Use the setting found in the flags word to feed into 
the PSW (that value overrides the current setting found in the PSw). 


FMP = FP; ! Get frame pointer 
SAVE _FP = .FMPCBSFSA SAVED_FPI; ! Get saved frame pointer 
IF_.SAVE_FPCBSFSA_HARDLER] EQL BASSHANDLER 
IF _(((. SAVE _FPCBSFSW_FCD_FLAGS]) AND (BSFSM_FCD_DV)) NEQ 0) 
BISPSW (ZREF (PSWSM_DV)) ! Set DV bit in PSW 


BICPSW (ZREF (PSWSM_DV)); ! Clear DV bit in PSwW 


LSE 

si BISPSW (ZREF (PSWSM_DV)); ! Set Sv bit in PSw 
Unpack descripters and convert scaled decimal strings to character strings 
f B_ADDR = QBUF + 95; 
SAV_BADDR = .B_ADDR ; 
LIBSSUNPACK SD-R8 (.8, B_LENGTH, B_EXP, B_SIGN, B_ADDR); 
IF 2 LENGTA EGL 0 

BASSSSTOP(BASSK_DIVBY_ZER); 
A_ADDR = .SAV_BADDR™= 33; 
m LIBSSUNPACK_SB_R8 (.A, A_LENGTH, A_EXP, A_SIGN, A_ADDR); 
; Calculate the resultant sign. 
cs C_SIGN = .A_SIGN XOR .B_SIGN; 
i Calculate maximum number of result digits required 


Q_LENGTH = (.A PENGTH + A gx) - (.B_LENGTH + .B_EXP) 
- .CCDSC$B_SCALE] + .RND_TRUNC/S; 
IF ae LENGTH LSS 0 


i THER 

Special case for zero quotient 

‘ BEGIN 

MOVP (CCDSC$W_LENGTH) 
a . CCDSCSA_POINTER) 


ELSE 
BEGIN 
'¢ 


! Determine the number of digits required in A to obtain the proper number 
of digits in the result 


ou ALLEN = .B_LENGTH + .Q_LENGTH; 
i Determine the number of 15 digit CHUNKS needed to hold B, the required 


ZERO + 15 = .CCDSCSU_LENGTHI/2, 
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digits of A and the result digits 
A_CHUNKS = (.A_LEN # 14)/15; 
8. CHUNKS = (8. LENGTH + 14)71 
+6 Q"CHUNKS = (,Q-LENGTH + 299/15: 
i For the algorithm we must have A_CHUNKS >= B_CHUNKS ¢ Q_CHUNKS. 
te A CHUNKS = MAXU(.A_CHUNKS, .B_CHUNKS * .Q_CHUNKS); 
‘ Convert A and B strings to packed decimal arrays. 
Lesecyt STR_PACK_RO (.A ADOR, eA LENGTH, .A_CHUNKS, ABUF8); 


MOVP (ZREF(15), ZERO, ABOF) 
reassert STR “PACK _R9 ( ‘3 ADR, -B_LENGTH, .B_CHUNKS, BBUF); 
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Step 6 - Adjust q if the result of step 4 was negative 
IF .STATUS EQL 1 ! If remainder is negative 
LIBSSADJUST_Q_R9 (.B_CHUNKS, ABUF8 + .J, BBUF, QBUF + .J); 
'¢ 
i Convert the array of 15 éteie chunks of the quotient to one packed decimal 


i ptr ing of the length spec Le by the C descripter and copy the result to the 
on pointed to by the C descripter. 


STATUS = LIBSSCVT_AP_P_R8 (.RND_TRUNC, 


: locat 


BUF, 
~Q_ CHUNKS 
(.Q_LENGTH : (.RND_TRUNC/5)) = 15*(.Q_CHUNKS-1), 


IF_.STATUS EQL 1 
BASSS$STOP(BASSK_DECERR) 


75 65 '¢ 
i Step 1 = Normalize A and B. NOTE: +f 0. CHUNKS > 1 this step is not necessary 
i and the computation of q can be simp Ted. A tee is used to indicate the 
8 : i j_Prever method of evaluating q. if .B_CHUNKS = 1 and 0 otherwise. 
80 670 IF .8 CHUNKS NEQ 1 
a 671 THEN 
4 4 BEGIN 
73. 4 FLAG = 0; 
84 74 4 STATUS = LIBSSCALC_D_R7 (BBUF, QBUF) ; 
5 675 4 IF .STATUS NEQ 1 ! STATUS = 1 <==> Dp = 1 
$$ ere ¢ * "BEGIN 
4 bere ; LIBSSMUL_PACK_R10 Cogut , ABUFS. «A CHUNKS, .A_CHUNKS+1, 
90 0680 LIBSSMUL_PACK_R10 (QBUF, BBUF, .B_CHUNKS, .B_CHUNKS, BBUF); 
91 0681 4 END; 
0682 4 END 
068 ELSE 
94 0684 FLAG = 1; 
95 0685 
96 0686 '¢ 
df se t4 ‘ Ready to start the actual divide algorithm. 
0689 INCR J FROM 0 TO (.Q_CHUNKS*8 - 8) BY 8 DO 
0690 4 BEGIN 
401 0691 4 !¢4 
+23 2 Step 3 - Calculate digit of quotient. 
tbe Rope 2 ss LIBSSCALC_Q_R9 (BBUF, ABUF + .J, .FLAG, QBUF + .J); 
be9 ? - "fees 4 - Multiply and subtract. Replace the digits of ABUF by ABUF - Q*BBUF 
08 0698 4 LIBSSMUL_PACK_R10 (QBUF+.J, by? -B_CHUNKS, .B_CHUNKS+1, QBBUF8); 
yes : - STATUS ="LIB$SSUB_PACK_R& (.B_CHUNKS, ABUF + .J7> QBBUF); 
0701 4 
4 
4 
4 
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000000006 00 16 
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BASSEXTEND_DIVP 
\1-005\ 


-BASSCODE ,NOWRT, 
0£15] 
FE 


SHR, PIC,2 


P.AAA 
SSSTOP, LIBSSCALC_D_R7 
SSCALC Q_R9, ,L18SSS08_PACK,RB 


$S$ADJOST 
LIBSSCVT_STR_PACK_R9 
BASSHANDCER, BASSR_DECERR 
BASSK_DIVBY_ZER 


BASSET TEND DIVP. Save R2,R3,R4,R5,R6,R7,RB,-; 


-204(SP), SP 

FP, FMP 

FMP, RO 

12(RO), SAVE_FP 
SAVE _F 
BASSAANDLER, R1 
(RO), R1 


1$ 
#10, -26(RO), 1% 
+198 


R 
B_ADDR, SAV_BADDR 
B"ADDR, R8 
B"SIGN, R7 

8- R6 
B"LENGTH, RS 

By R4 

L fBSSUNPACK $0 _R8 
B LENGTH, RT 


A- 
LIBSSUNPACK_SD_R8 
B_SIGN, A_SYGN; C_SIGN 


0453 


0626 


—_—__—_—- Page? 
er eh 3 ’ =11 Bliss-32_V4.0-742 GW) 
l 18-Sep-1984 9:82:55 — YeAsateosneSeasepive.039;1 
| BASSEXTEND_DIVP 14-Sep = ; 0630 
885 91 MOVZUL A_LENGTH ; 
: FA AD 3 CVTBL  ATEXP, RO F 
| Bae 33 ADoLe RO, RY 
eB AD 98 0009 Cyr BE ho 
8 A ES ROA SUBL? RO, RI : 0631 
1 5 EY Boon ADOLS B,C Re : 
oc A 58 Ronas CVTBL = (R), RO : 
™ 6 “ SUBL - RI : 
35 $ CS Ronat DIVES #5, RND TRUNC, 12(SP) 
AC Tg 4 MOVAB a1S(SP)ER1], O_LENGTH : 0632 
Oc AE i D OC BES ; 087 Bee + 063 
san 1A pep MOV ZERO+15, RO : 
[ee ots MOVZuL aC. 4 
, “s B5 Cg 000¢8 SuBLS «REL ORO : 0639 
2 04 ; ooce MOVE” aC. ROD) @cRS)s : 063 
55 oc AC Oc BC 3 0005 mov = at, (RO), : Sea 
95 60 oe ee. ee LENGTHERI0], ALLEN : 0652 
Es AD me POE EF O000F soy #15, RO- A; CHUNKS ; 0653 
2 ~ = OF C7 OO0ES MOVAR  14¢K10). RP : 
£0 AD 29 OE AA 9E 00089 DIVLS #15, 7” 8 CHUNKS : 0654 
oc OA 27 > OOF e Site Pe ee ee ; 0658 
5 oe 3 OF C7 OO0F ADDL3 Q_CHUNKS, B CHUNKS, R8 ; 
on ne CO ORF Meee CMPL =—RO, RB : 
a a As Ooi MOVE, RB, RO pie 
50 5 DO 00108 5$: MOVL RO, A_CHUNKS ; 066 
AD F Se OOlls OVA ABUFBT R 
” 59 30 = AE 4 011 OVL A_CHUNKS, R 3 
58 £0 m4 ti OIA MOVZWL ALLENGTH . : | 
HH F4 AD 00 0011 USo, LTaSSCVT. STR_PACK_R9 0663 
** 000000006 BF $4 001 Rove, #15. ZERO, : 0664 
oc MOVL RTO, ‘ 
01 
© oooo0sic 06 46 Oo13e J 8 CHUNKS? #1 : 
es 2 144 CHL : 0673 
" eB YS Coles tee ; 0674 
18 AE pb OO14A HOVAB BUF, R7 : 
57 26 AE 9E 0014D MOVAB BBUF, R6 ; 
68 AE 9E 00151 SB LIBSS$CALC_D_R7 
© o0000006 6 16 00155 Move RO. STATUS : 0675 
"oe i bt 015 cot plus. at ; 0678 
‘ 8 33 193 MOVAB —ABUFB, R10 : 
5A 30 af % 183 ADDL gi AACHUNKS, RO 
59 EO A 3 ht ae NOVAB aB0F Re . ; 
H 2 AD DO 00176 MOVL —A_CHUNKS, 


-—_--- — - 


‘GASRENTEND_p1vP 


| 
| 


08 AE 

04 AE 

FF92 58 
57 

56 


; Routine Size: 614 bytes, 


000000006 00 


Routine Base: 


senenay ' G 00 


8s 
fae 
000000006 6 

$ } 
; ; 
AD 1 
58 : 
sf 

f nt 
6 68 AE 
9 6E 
8 18 ae 
000000006 0 

Bf AD 

8 AE 


4 
DC = AD 


5A 

57 

59 

58 
56 E 
000000006 00 
38 4 AD 
5 8 AE4B 
56 DC AD 
000000006 98 

AE 
01 1c AE 
58 8 he 
57 30 AE4B 
59 6E 
56 DC AD 
000000006 00 
08 08 AE 
4 oc we 
$? 56 
57 OF 
23 2 AE 
8 E AD 
6 4 AD 
4 . & 
3 AC 


o,y 
-—M 


1¢ oe 
000000006 Ht 


NO 


PR 


00-9009 00-99 000-220 NOT To 000 
eo 
wn 


“3 OO WAM HMRMMMMOCVTIVOOO 
SRBWAAVRSSROOSNS OUOM SD FOSOUN SUNOS RON S ROM ROD 

eo 

wr 


10 
000000006 9° 


FDINM "OFS OOO FSMOMMNWAOOM MN “OAOMMAOOOMMASOOMMM rN TWO "SOOM MmMna 


onO —900 CCT OWOOMOOO7T—VTCTT00OVOo-90 CO “co 


_BASSCODE + 0010 


bc 17:82:85 Heksnt SneSaase 


LIBSSMUL PACK R10 
UF, Rio 


#1, FLAG 
oe Q_ CHUNKS, 8(SP) 
#8, 8TSP) 
a. B CHUNKS, 4(SP) 


9 

ae 
BBUF, Rs 
(SP), R 


Atus, #1 
BBUF, R 
ABUF SLU), R7 
B_ CHUNKS, R6 
LIBSSAD UST Q_R9 
(SP), # 


12(SP5, Q°LENGTH 


R7 
#15, Q.CHONKS, R6 
R6, R7 


RND_TRUNC, R3 
LiBSscvi Ap_P_R8 
RO, STATOS 
TATUS, #1 


#BASSK DECERR 
#1, BASSS$STOP 
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; 0698 


0699 


-———_--———- 


| ib 
| BASSEXTEND_DIVP -Sep-1984 AX=11 Bliss-32 V4.0-74 P 4 
85 320-1984 11:50: $5 YaAsat“sacSeasebive.39;1 oe 
: o3s 0788 1 END ! end of module BASSEXTEND_DIvP 
; 4 726 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
> _BASSCODE 630 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
2 ae ee net ee maar Symbols ------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; -$255SDUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:01.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASEDIVP/OBJ=OBJ$:BASEDIVP MSRC$:BASEDI VP/UPDATE=(ENHS$:BASEDIVP) 


5 i) 614 sede + 16 data bytes 
3; Elapsed tener sft 

3; Lines/CPU Min: 

s me Ak Sty 9 

3 nonery Used: a1" sis 
3 ation Complete 


DIGITAL EQUIPMENT CORPORATION 


AH-BT13A-SE 
CONFIDENTIAL AND PROPRIETARY 


VAX/VMS_ V4.0 


02 


